Original ELIZA source code in MAD-SLIP

oe

\,077 as
lal /

COMPUTER CONVERSATIONS (1965)

PUBLIC
DOMAIN

creative
commons

z PRINTsTO109y2531ysTAPEse102 = =. & _ 70109 2531 _ ___.1748.8____ 03/06 _
F=
(HOW CC YOU OG. I AM THE DOCTOR. PLEASE SIT DOWN AT THE TYPEWRITER 000010
AND TELL ME YOUR PROBLEM.) 000020
ee (IF 3 (10 IF 0) (DO YOU THINK ITS LIKELY THAT 3) (DO YOU WISH THAT 3) 000030 a ae. Par Sate oo
(WHAT CC YOU THINK ABOUT 3) (REALLY, 2 3))) 000040
: 2 (MEMORY MY (0 YOUR _O = LETS DISCUSS FURTHER WHY YOUR 3) _ 000050 De ale
5¢ (O YOUR O = EARLIER YOU SAID YOUR 3) q 000060
: (0 YOUR O = BUT YOUR 3) 000070
(0 YOUR O = DOES THAT HAVE ANYTHING TO DO WITH THE FACT THAT YOUR 3)) 000080 PUBLIC
ce (NONE ({0) (1 AM NOT SURE I UNDERSTAND YOU FULLY) ‘ 000090,
2 (PLEASE GO CN) = 000100 DOMAIN
7 (WHAT DCES THAT SUGGEST TO YOU) aS * = gad 000110 |
(DO YCU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS))) 000120
(PERHAPS ((0) (YOU DON'T SEEM QUITE CERTAIN) 000130
(WHY THE UNCERTAIN TONE) 000140
(CAN*T YOU BE MORE POSITIVE) 7 oh each ae 7 Ss.) JO00850% = 7
(YOU AREN'T SURE))) 000180
7 (MAYBE (=PERHAPS)) _# .__-—_—-_—-_-og0190.
(OON*T YOU KNOW) 000200
(AM = ARE ({0 ARE YOU 0) (DO YOU BELIEVE YOU ARE 4) 000210
3 (WOULD YOU WANT TO BE 4) (YOU WISH I WOULD TELL YOU YOU ARE 4) 000220
5@ _________ _(WHAT WOULO IT MEAN IF YOU WERE 4)) _ = 2:2. “000230: .... 2 —< an im
z ((0) (WHY DO YOU SAY "AM*) {I DON*T UNDERSTAND THAT))) 000240
z jAARE = AM ((0 AMI 0) 2 a > 000250 a 7 aes Rane Se
r | (WHY ARE YOU INTERESTED IN WHETHER I AM 4 OR NOT) 000260
(WOULD YOU PREFER IF I WEREN'T 4) (PERHAPS I AM 4 IN YOUR 000270
) FANTASIES) (DO YOU SOMETIMES THINK I AM 4)) 000280
(0 AM 0) (DID YOU THINK THEY MIGHT NOT BE 3)_ = : : 000290
| (WOULD YOU LIKE IT IF THEY WERE NOT 3) (WHAT IF THEY WERE NOT 3) 000300
a | (POSSIBLY THEY ARE 3)) ) eee hae age ees a Tee ee CEES 000310 :
r (YOUR = MY ((C MY 0) (WHY ARE YOU CONCERNED OVER MY 3) 000320
(WHAT ABOUT YOUR OWN 3) (ARE YOU WORRIED ABOUT SOMEONE ELSES 3) 000330
(REALLY, MY 3))) 000340
ear _ (WAS = WERE) eT! ee: ZI00085SO.. how a eee GC. SAS
(WERE = WAS) 000360
ye 2 MES OU eS Bae tes : Ss oe __ 000370 _ zee
€ (YOU'RE = I'M) 000380
(1'M™ = YOURE) 000390
(MYSELF = YOURSELF) 000400
€ 2. __ _t YOURSELF = MYSELF) ane he _ q +. 000410. -> -. Peo ee. oe
(MOTHER DLIST(/NOUN FAMILY) ) 000420
The _____A FATHER DLIST(/NOUN FAMILY?) Gua a = : _ 000430
« (SISTER DLIST(/FAMILY)) 000440
6 (BROTHER DLIST(/FAMILY)) 000450
(WIFE DLIST(/FAMILY)) 000460
oe (CHILDREN DLIST(/FAMILY)) a ae s ae _ 000470, 7 = os,
(1 = YOU ((0 YOU ARE OT 0) 000480
— (PERHAPS YOU ARE 4 SOMEGNE ELSE) _ ; 7 . B! : ; 000490
« (ARE YOU 4 ANYONE) (ARE YOU 4 ANYONE IN YOUR FAMILY) 000500
! (PERHAPS YOU WISH I WERE 4 YOU 6)) 000510
((0 YOU ARE 0) 000520
© «ATS IT BECAUSE YOU ARE 4 THAT YOU CAME TO ME) _ — = 000530
(HOW LONG HAVE YOU BEEN 4) 000540
s_________(00 YOU BELIEVE IT NORMAL TO BE 4) zy CS _____ __ 000550 =
qe (DO YOU ENJOY BEING 4)) 000560
; ((0 YOU CAN'T 0) (HOW DO YOU KNOW YOU CAN*T 4) 000570
(HAVE YCU TRIED) 000580
a ae (PERHAPS YOU COULD 4 NOW) ae ee ae _ 000590. _ ees cau east i ee
(D0 YOU REALLY WANT TO BE ABLE TO 4)) 000600
Be (40 YOU DON'T O)(DON*T YOU REALLY 4) (WHY DON*T YOU 4) 25 000610 _ 3 SE as ee eee ee :

it a
‘

eo

ROYAL *f BU!

PUBLIC
DOMAIN

(pO _YCU WISH TO BE ABLE TO 4) (DOES THAT TROUBLE YOU)) a 000620
((0 YCU FEEL 0) (TELL ME MORE ABOUT SUCH FEELINGS) 000630
(DO YOU OFTEN FEEL 4) 000640
(DO YOU ENJOY FEELING 4) 000650
(OF WHAT DOES FEELING 4 REMIND YOU)) p. 1 900660:
((0 YOU 0 I 0) (PERHAPS IN YOUR FANTASY WE 3 EACH OTHER) 000670
(DO VOULWISHATOOS MEle 2 8 2 Pe - eta _ 000680 _
(YOU SEEM TO NEED TO 3 ME) 000690
(DC YOU 3 ANYONE ELSE)) 000700
(0) (YOU SAY 1) 000710
(CAN YOU ELABORATE ON THAT) (00 YOU SAY 1 FOR SOME SPECIAL REASON) 000720
(THAT'S QUITE INTERESTING))) 000730
(you = I ((0 I 0 YoU 0) 7 : Re SD = ——- 000740
(WHY DG YOU THINK I 3 YOU) 000750
(DID YOUR PARENTS 3 YOU)) 000760
((0 | AM 0) (WHAT MAKES YOU THINK I AM 4) 000770
(DOES IT PLEASE YOU TO BELIEVE I AM 4) Pe eee _ 000780
(DO YCU SOMETIMES WISH YOU WERE 4) 000790
(PERHAPS YOU WOULD LIKE TO BE 4)) “ 5 000800 _
((O I 0) (WE WERE DISCUSSING YOU — NOT ME) 000810
(OH, I 3) (YOU'RE NOT REALLY TALKING ABOUT ME — ARE YOU) 000820
(WHAT ARE YOUR FEELINGS NOW))) 000830
“(YES ((0) (YOU SEEM QUITE POSITIVE) (YOU ARE SURE) — —__ __ 000840
(I SEE) (I UNDERSTAND))) 000850
(NO ((0) (ARE. YOU SAYING "NO* JUST TO BE NEGATIVE) _ =. ee 000860
{YOU ARE BEING A BIT NEGATIVE) (WHY NOT) (WHY *NO*))) 000870
(My = YOUR ((0 YOUR O (/FAMILY) 0) 000880
(TELL ME MORE ABOUT YOUR FAMILY) ( WHO ELSE IN YOUR FAMILY 000890
5) (YOUR 4) (WHAT ELSE COMES TO MIND WHEN YOU THINK OF __ 000900
YOUR 4)) . 000910
(€0 YOUR 0) (YOUR 3) (WHY ODO YOU SAY YOUR 3) (DOES THAT __ = ____000920
SUGGEST ANYTHING ELSE WHICH BELONGS TO yOu) (IS IT 000930
IMPORTANT TO YOU THAT 2 3))) 000940
(CAN ((0 CAN I ©) (YOU BELIEVE I CAN 4 DON'T YOU) 000950
“(YOU WANT ME TO BE ABLE TO 4) (PERHAPS YOU WOULD LIKE TO _BE_ : 000960.
ABLE TO 4 YOURSELF)) ({O0 CAN YOU 0) (WHETHER OR NOT YOU CAN 4 000970
‘DEPENDS ON YOU MORE THAN ON ME) (00 YOU WANT TO BE ABLE TO 4) 000980
(PERHAPS YOU DON'T WANT TO 4))) 000990
(WHAT ((0) (WHY DO YOU ASK) (DOES THAT QUESTION INTEREST YOU) 001000
(WHAT IS IT YOU REALLY WANT TO KNOW))) 001010
(BECAUSE ((0) (IS THAT THE REAL REASON) (DON'T ANY OTHER REASONS __ 001020
COME TO MIND) (DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE) 001030
(WHAT. OTHER REASONS MIGHT THERE BE))) _ _ _001040_
(WHY ((0 WHY DON'T I 0) (00 YOU BELIEVE I DON*T 5) (PERHAPS I 001050
WILL 5 IN GOOD TIME) (SHOULD YOU 5 YOURSELF) (YOU WANT ME TO 5)) 001060
((O0 WHY CAN'T YOU 0) (DC YOU THINK YOU SHOULD BE ABLE TO 5) 001070
(DO _YCU WANT TO BE ABLE TO 5) (DO YOU BELIEVE THIS WILL HELP YOU _ _ 001080
To 5) (HAVE YOU ANY IDEA WHY YOU_CAN'T 5)) 001090
(0 WHY 0) (WHY DO YOU THINK 3) (IS IT TRUE THAT 3) 001100.
(DCES THAT QUESTION INTEREST YOU) (DO YOU WORRY MUCH ABOUT WHY 3))) 001110
(EVERYONE 2 ((0) (REALLY, EVERYONE) (CAN YOU THINK OF 001120
ANYONE IN PARTICULAR) (WHO, FOR EXAMPLE) (YOU ARE THINKING OF 001130
A VERY SPECIAL PERSCN) A ahs - gg... 002140
(WHC, MAY I ASK) (SOMEGNE SPECIAL PERHAPS) 001150
(YOU HAVE A PARTICULAR PERSON IN MIND, DON*T YOU) (WHO DO YOU _ 001160,
THINK YCU*RE TALKING ABOUT))) 001170
(EVERYBODY 2 (= EVERYONE)) 001180
(NOBODY 2 (=EVERYONE)) 001190
-(NCONE 2 (=EVERYONE)) Sena ema ares . & eee 001200 -
(ALWAYS 1 ((0) {CAN YOU THINK OF A SPECIFIC EXAMPLE) (WHEN) 001210
(WHAT INCIDENT ARE YOU THINKING OF) (REALLY, ALWAYS))) ——__ — 001220

o

r

ROYAL “f BUSINESS FORMS INCORPORATED

‘aa . ee eee
PUBLIC
a DOMAIN

creative
commons

BUSINESS FORMS

Q 6

2 PRINT, 1T0109,2531,SPEAK,MAD = +a T0109 2531 _ 1748.8 03/06 =
CHANGE MAD
EXTERNAL FUNCTION (KEY,MYTRAN) 000010
Z = NORMAL MODE IS INTEGER ; 000020 _ = : are
ENTRY TO CHANGE. . zi 000030
a = LISTsCINCUT) aa a = - HOO00S08.- es te
V°S G(L)=$TYPE$, $SUBST$, $APPEND$,$ADDS, e 000050
LSSTART$» $RANKS » $DISPLAS 000060
vV'S SNUMB = $ I3 *$ 000070
: FIT=0 ae iar, . _ 000080, PUBLIC
CHANGE PRINT COMMENT $PLEASE INSTRUCT MES 2 001400 DOMAIN
eek ED Te _LISTRO. (MTLIST. (INPUT) 0) 7 ae | 7 001410 :
JOB=POPTOP. (INPUT) 001420
T'H IDENT, FOR J=lels JeGe 7 001430
TOENT WR G(J) «Ee JOB, T*O THEMA 001440
PRINT COMMENT $CHANGE NOT RECOGNIZED$S 001450 :
T*O CHANGE - fa 001460
at THEMA se WR J oEs Se FYN IRALST.C INPUT) q 001470
WR J .E. 7 001480
T*H DISPLAy FOR I=0,ly I «Gs 32 001490 *
W°R LISTMT«(KEY(I)) «Es 0, T*O DISPLA 001500
et S=SEQROR«(KEY(I)) _ ie. ma ie _ 001510 a 5
READ(7) NEXT=SEQLR«(SyF) 001520
7 “9 AWERSEcGs. 05. TSO DISPLA: © ioe & 001530 >
PRINT COMMENT $*$ 001540
TPRINT«(NEXT20) 001550
PRINT FORMAT SNUMBy 1 001560
is _ PRINT COMMENT $ $ ae ie ___001570. 7
T*O READ(7) 001580
DISPLA CONTINUE eA Tou 001590 ees :
PRINT COMMENT $ $ 001600
PRINT COMMENT $MEMORY LIST FOLLOWSS 001610
PRINT COMMENT $ $ 001620
acon! es TtH MEMLST, FOR I=l +» 1s I -Ge 4 ae ___001630 - eet
MEMLST TXTPRT.(MYTRAN(I) 0) 001640
7 ____T"0 CHANGE _ : _f 001650 age
E*L 001660
THEME=PCPTOP.( INPUT) 001670
SUBJCT=KEY (HASH. (THEME, 5)? 001680
ine eaee ae S=SEGRDR.(SUBJCT) enw. xt 4 __. § __——ss—_—i001690 ee
LCOK TERM=SEQLR.«(SoF) 001700
— _ WR F eGe O» T'O FAIL _ Po 001710
WR TOP.(TERM) «Es THEME, T*O FOUND 001720
T'0 LOOK 001730
FOUND T*O DELTA(J) 001740
et hae DELTA(1) _ TPRINT.(TERM+0) os x Pa) : ae :
T*O CHANGE 001760
FAIL PRINT COMMENT $LIST NOT FOUNDS a peste! el A AS
T'O CHANGE 001780
DELTA(2) _S=SEQRDR.»( TERM) 001790
OLD=POPTOP.{ INPUT) 001800
____ READ(1) —_ OBC T=SEQLR. (S59) Se er 2 —— wae 001810 __
WR F «Ge Oy T'O FAIL 001820
Were the W'R F «NE. Oy T'O READ(L) a ___001830_ :
INSIDE=SEQRDR.(OBJCT) 001840
READ(2) IT=SEQLR.« ( INSIDE,F) 001850 :
W'R F .Ge O, T'O READ(1) 001860
a ae SIT=SEQRDR«(IT) ne ae. __001870_ a 2 Sx: :
SOLD=SEQRDR. (OLD) 001880
ITOLD TOLD=SEQLR«(SOLD,FOLD) —__ 001890

wt!

DIT*SEQURSUSIT SEIT) oe ae = _- = Q01900. S.
w'R TOLD .E. DIT .AND. FOLD LE. OsT'O ITOLD 001910
W'R FOLD 2G. 0, T*O OK(J) 001920
T'O READ(2) 001930
- CK(2) SUBST. (PCPTOP.( INPUT) sLSPNIR«(INSIDE)) _ = 2 ____ 001940 = oe Desir e
T'O CHANGE 001950
ia OK{3) NEWBOT.(POPTOP.(INPUT),OBJCT) ei 001960
T*O CHANGE 001970
DELTA(3) _T*O DELTA(2) 001980
DELTA(4) WR NAMTST.(BOT.(TERM)) .E. 0 001990
Dan __ BOTTOM=POPBOT. (TERM) a 7 002000 PUBLIC
NEWBOT.(POPTOP.{ INPUT) » TERM) 002010 DOMAIN
7 =e zc. NEWBOT. (BOTTOM, TERM) Ses : = 002020 _
Ore 002030
NEWBOT. ( POPTOP.({ INPUT) »TERM) 002040
Ett 002050
T*O CHANGE PAs ss Sa _ 002060
DELTA(6) S=SEQROR.(TERM) 002070
READ(6) CBJCT=SEQLR«(S,F) 2 oe.” ________902080
WR F .Ge O» T'O FAIL 002090
W'R F_.NEs O» T*O READ(6) 002100
OBJCT=SEQLL.(S,F) 002110
Si a MERTUNK es VOBICTI obs 2022. bP 2 one 002120 __ =
SUBST. (POPTOP. (INPUT) sLSPNTR«(S)) 002130
cack O° E a = ae ee _ 002140 _
NEWTOP. ( POPTOP.( INPUT) sLSPNIRe(S)) 002150
EL DOOZ1G60 cate oon 2 See Ps
T*G CHANGE 002170
eee Re # # # # » © # # & END OF MODIFICATION ROUTINE 002180 —
E'N 002200
TPRINT MAD _ =
EXTERNAL FUNCTION (LST) 000010
NORMAL MODE IS INTEGER 000020 7 :
ENTRY TO TPRINT. 000030
ee se 2 Z _SA=SEQRDR-(LST) _ ee 2 000040
LIST.(OUT) 000050
READ _——s_—CNEXT=SEQLRe(SAVFA) = = _000060 ft
W'R FA .Ge Os T'O P 000070
W'R FA .E. 0, T'O B 000090
POINT=NEWBOT. (NEXT, OUT) 000100
SORT aoe a W'R SA obs Oy MRKNEG.(POINT) a 000110 5
T*O READ 000120
ana B TXTPRT.(OUT,O) rat = 3 000130
SEQLL.(SAsFA) 000140
2 MORE NEXT=SEQLR.~(SA,FA) 000150
W'R TOP.(NEXT) .E. $=$ 000160
he pee ___IXTPRT~(NEXT,O) ohh _ ae ee ae ae 000170 ——_ =e
T'O MORE 000180
Ie ed en Do TOES ND nh Prine = "er _ ae 000190
W'R FA .Ge O, T*O DONE 000200
: PRINT COMMENT $ $ 000210
SB=SEQRDR« (NEXT) 000220
G. MERE __ TERM=SEQLR.(SByFB) Por ee, | eee 00023000
W'R FB .L.0 000240
; Z 7 PRINT ON LINE FORMAT NUMBER, TERM . = 000250
oe” V'S NUMBER = $13 *$ 000260 :
; T'O MEKR 000270
EfL 000280
@. W'R FB .Ge 0, T*O MORE _ 000290 oo
TXTPRT«(TERM10) 000300
T'O MEHR ; 4 7 a. 000310 _

a a ee

P TXTPRT»(QUT)O) = a ‘ 000320_ BAS ee = f
DONE IRALST. (QUT) 000330
FAN 000340
EN 000350
Bat LPRINT MAD : a os ; _ ete ns
EXTERNAL FUNCTION (LST, TAPE) 006340
NORMAL MODE IS INTEGER eee 2 006350 __ a a toe
ENTRY TC LPRINT. - 006360
BLANK = $ $ 006370
EXECUTE PLACE. (TAPEs0) 006380
LEFTP = 606074606060K _ Po sa 006390 PUBLIC
RIGHTP= 606034606060K 006400
eter ____ __ BOTH _= 607460603460K eee 006410_ 7 DOMAIN
EXECUTE NEWTOP. (SEQROR.(LST) LIST. (STACK?) 006420
S=POPTOP. (STACK) 006430
BEGIN EXECUTE PLACE.(LEFIPy1) 006440
NEXT WORD=SEQLR.(S»FLAG) : es ee os 006450 :
WR FLAG ol. O 006460
= 7 EXECUTE PLACE. (WORD»s 1) z hg 2 006470 *
W'R S «Ge Oy PLACE.(BLANKs1) 006480
T*O NEXT 006490
OR W'R FLAG .G. 0 006500
aos : EXECUTE PLACE.(RIGHTPy1) = aes i _006510_ 7 el
W'R LISTMT.(STACK) «Ee O» T*O DONE 006520
ee S=POPTOP.(STACK) ee wee - _ 006530 | = _ =
T'O NEXT 006540
OTHERWISE 006550
WR LISTMT«(WORD) ~E~ O 006560
Pee EXECUTE PLACE.(BOTH»1) ~ q —_006570_ : eee
T'0 NEXT 006580
OTHERWISE -Serages *. EE : 006590 : : :
EXECUTE NEWTOP.(S, STACK) 006600
S=SEQROR« (WORD) 006610
T*O BEGIN 006620
7 oes, ie oe eee s _ 4 : 006630 __ = Ls
EL 006640
DONE EXECUTE PLACE-(Os-1) aed ia 7 006650, Pee
EXECUTE IRALST.(STACK) 006660
FUNCTION RETURN LST 006670
END OF FUNCTION 006680
7 ee TESTS MAD 7 ae | ae 7 z= Le :
EXTERNAL FUNCTION(CANDyS) — 000010
: este NORMAk MODE IS INTEGER : pe. ae 000020, _
DIMENSION FIRST(5) »SECOND(5) 000030
ENTRY TO TESTS. Fes 000040
STORE=S 000050
een te, READER=SEQROR-(CAND) Ss oe BR em i See . oer: ror - [
T'H ONE, FOR [=07l, I Gs 100 ~ 000070
: a FIRST(1)=SEQLR~ - (READER» FR) pare eee oO 000080 Site —_
ONE W'R READER «Ge Oy T'O ENDONE 000090
ENDCNE SEQLL.(S9F) 000100
T'H TWOy FOR J=Oyly J -Ge 100 000110
ae ; SECOND (J)=SEQLR-(SyF) - , ae 000120 7 :
TWO W'R S «Ge Oy T*O ENOTWO 000130
: ENDTWC WR I eNEse Je FONO :) ae. 000140 :
T'H LOOK, FOR K=Oyl, K.G. J 000150
LOOK W'R FIRST(K) «NEs SECOND(K), F'N 0 000170
EQL=SEQLR.« ( READER» FR) 000180
ene > 7 WIR EQL NE. $=$ ost ee Soe 000190” 7 7 E
SEGLL. (READER, FR) ~000200
F°'N READER 000210

el!

YAL “P BUSINE

Ore = 2 2 Te es = : 000220 _ _ =
POINT=LNKL.( STORE) 000230
T'H DELETE » FOR K=O9ly» K 2G. J 000240
REMOVE. (LSPNTR.( STORE) ) 000250
DELETE SEQLRs(STORE»F) | = fe eer ee 000260 __ es mer acs 8... 41s =
INSRT NEW=SEQLR« (READERs FR) 000270
- cn POINT=NEWTOP.(NEW,POINT) _ aie Cee ee 000280 _ 7 eres,
MRKNEG. (POINT) 000290
W'R READER ot. O, T*O INSRT 000300 _
MRKPOS. (POINT) 000310 PUBLIC
7 F'N READER 2 ee eee 2 000320 _
E*L 000330 DOMAIN
E'N rae zs pops See ck ee 000340 _
COCBCD MAD
EXTERNAL FUNCTION (AB) 000010
NORMAL MODE IS INTEGER 000020
is ENTRY TO FRBCD. _ eee ae. Powe 000030
W'R LNKLe(A) «Es Or T*O NUMBER 000040
2s = B=A = aa eras a 000050
FY'N O 000060
NUMBER K=A#262144 000070
B=BCDIT.(K) 000080
= —EENLO > =! en eeare <a 000090
E'N 000100
ae ELIZA _ MAD =e - a! ‘ =
NORMAL MODE IS INTEGER 000010
DIMENSION KEY(32),»MYTRAN(4) 000020
INITAS.(0) 000030
= Pe net ee PRINT COMMENT $WHICH SCRIPT DO YOU WISH TO PLAY$ 000060
READ FORMAT SNUMBsSCRIPT 000070
ee Sea : ___LIST.(TEST) _ eee = 000080
LIST.( INPUT) 000090
LIST.»( OUTPUT) 000100
LIST.(JUNK) 000110
es Pee eit eee _ Pee: 000120
LSSCPY« (TREAD. (INPUT, SCRIPT) JUNK) | 000130
Pe 7 __MTLIST.CINPUT) Beas, Gs, eee » eo 000140 ei See
T'H MLST, FOR I=lels I .Ge 4 000150
MLST LIST. (MYTRAN(I)) 000160
MINE=0 000170
en age Se See -LISTs(MYLIST) = a oe eee ee 000180 _ -
T'H KEYLST» FOR I=Oly I .Ge 32 000220
7 __KEYLST_ LIST.(KEY(1)) s - 000230
Re # # # # # # # © * READ NEW SCRIPT 000240
BEGIN MTLIST.CINPUT) 000250
NODLST.C INPUT) 000260
By 9 an aes __LISTRO.CINPUT»SCRIPT) __ | oo 000270, ban if SNe
WR LISTMT.CINPUT) 2E. O 000280
are Set ___ _TXTPRT~*( JUNKO) = | =o 000290
MTLIST. (JUNK) 000300
T'O START 000310
EL 000320
a WIR TOP.C INPUT) 2E. SNONES 000330 |
NEWTOP. (LSSCPYs( INPUTyLIST.(9) ) sKEY(32)) 000340
= __T*O BEGIN est 5 za co 000350 Z
= eee OR W*R TOP.(INPUT) «£2 $MEMORYS 000360
POPTOP.( INPUT) 000370
MEMORY=POPTOP.{ INPUT) 000380
Ry ot cd __T'H MEM, FOR I=lyl» I -Ge 4 3 000390 wa
Sa MEM LSSCPY.(POPTOP.( INPUT) »MYTRAN(I)) 000400
T*0 BEGIN 000410

fe

1G¢

a O'E Sat re PaaS as a 000420 = a ae _
NEWBOT .(LSSCPY.(INPUT,LIST.(9)),KEY( HASH. 000430
1 (TOP.CINPUT) »5))) 000440
T'O BEGIN 000450
As Ett es a ee = i 000460 oes ee a Rice ates
Re # # # & # # # # # BEGIN MAJOR LOOP - 000470
: START TREAD. (MTLIST.( INPUT) 0) =. a: : 000480 - pe Ore
KEYWRD=0 000490
PREDNC=0 000500
LIMIT=LIMIT#1 000510 PUBLIC
W°R LIMIT .Es 5, LIMIT=1 «se See | Ne 000520
WR LISTMT.( INPUT) .2£. O» T*O ENDPLA 000530 DOMAIN
= a [T=0_ = ayere® See ae 2 000540 _
W'R TOP.( INPUT) «Ee $+ 000550
CHANGE. (KEY»MYTRAN) 000560
T'*O START 000570
Fi E't Nea : ae oe 000580 —_— ef
W®R TOP.(INPUT) «Es $*%, T*O NEWLST 000590
S=SEQROR»( INPUT) : eZ ae ue __000600
NOTYET W'R S .Le O 000610
SEQLR.(SeF) 000620
T'O NOTYET 000630
ey ees OSES? Ys stereos! PA: 000640 iz ae
WORD=SEQLR.(SoF) 000650
a ae: W'R WORD .E. $.$ 2OR.s WORD .E. $,$ -OR~- WORD .E. $BUTS _000660 _ a —
W'R IT .E. O 000670
NULSTLe( INPUT» LSPNER*(S) sJUNK) 000680
MTLIST. (JUNK) 000690
eee ee ae __T'0 NOTYET 4 000700
O°E 000710
, : NULSTRe(INPUT,LSPNTRo(S)eJUNK) === ———C‘éQNZZCQ
MTLIST.( JUNK) 000730
T*O ENDTXT 000740
EPL 000750
[ee eaS: eh St. ir 3, ee LL ee ee = i 4 000760 :
Eft 000770
Pepri.. W'R F .Ge Os T*O ENDTXT 7 | Peo 000780 see
IT=HASH. (WORD) 5) 000790
SCANER=SEQRDR~(KEY(1)) 000800
SF=0 000810
wo TH SEARCH, FOR J=050 SF «Ge 0 gz 000820
CAND= SEQLR.«~(SCANER, SF) 000830
‘i WIR SF Ge On T*O NOTYET eo 000840
SEARCH W'R TOP.(CAND) «Es WORD, T*O KEYFND 000850
ie KEYFND READER=TESTS.~( CAND,» S) 000860
WR READER .E. O» T'O NOTYET 000870
hes : WR LSTNAM.(CAND) NE. O ; i. : 000880 i Soe eer
DL=LSTNAM. (CAND) 000890
i | | a WIR S ole 0 eee Se 000900
SEQLR.(SsF) 000910
? T*G SEQ 000920
Ofe 000930
; NE WTOP. (DLA LSPNTR«(S)) = | 000940 Be St Egat
Est 000950
: ah ae pee Ore 5 OE RE OREN a oo 000960
a ae ce 000970
. NEXT=SEQLR.~(READER,FR) 000980
W'R FR Ge O» T*O NOTYET 000990
: ___ WIR IT Es 0 AND. FR Es O LS ee) 11 Seen 2 eee
- PLCKEY IT=READER 001010
KEYWRD=wWORD _001020_

‘eo

‘@

«2

at!

_OR WIR FR .L. 0 AND. NEXT »G~ PREDNC o =. 5 Q01030% f= >
PREDNC=NEXT 001040
NEXT=SEGLR. (READER»FR) 001050
T'C PLCKEY 001060
2 __ _O"E (hee we = E. __001070 cist eye see
T'O NOTYET 001080
Se ae EL. pane = = _001090_ :
T*C NOTYET 001100
Re # # # # # # # # * END OF MAJOR LOOP 001110
ENDTXT WeR IT .E. O 001120 PUBLIC
WIR LIMIT o£. 4 eANDs*LISTMT.(MYLIST) .NE- O 001130,
CUT=POPTOP.(MYLIST) 001140 DOMAIN
eet TXTPRT.(OUT,0) eas Por Cee) se 001150 __
IRALST.(OUT) 001160
T'G START 001170
O'eE 001180
a ____ES=BOT.( TOP. (KEY(32))) Z @ 8 800790
T'O TRY 001200
a EL es Z Be Ba 5 le. _ 001210
3 OR W*R KEYWRD .E. MEMORY 001220
2 I=HASH»( BOT. (INPUT) )2) +1 001230
+ NEWBOT« (REGEL« (MYTRAN( 1), INPUTsLIST.~ (MINE) ) » MYLIST) 001240
: sd es = —SEQLL« (ITs FR) uf aie an 001250 __ ——
T'G MATCH 001260
se. at ___ Ore = ’ ae 001270 | :
SEQLL«(IT,FR) 001280
Res #8 # # # # # # MATCHING ROUTINE 001290
MATCH ES=SEQLR.~(ITyFR) 001300
penne _ WR TOP.(ES) Es $=$ 001310 :
S=SEQRDR.«(ES) 001320
a = SEQLR-(S9F) f _ 001330 7
WORD=SEQLR«(SsF) 001340
I=HASH.( WORD» 5) 001350
SCANER=SEQRDR. (KEY(1)) 001360
SCAN ss _TS=SEQLR«(SCANER®F) a 001370 R
WR F eGe Oy T'O NOMACH(LIMIT) 001380
x : & = WR WORD .E. TOP.(ITS) _ s 2; he 007390. _ ee,
S=SEQROR.«(ITS) 001400
SCANI ES=SEQLR«( SF) 001410
WR F .NEs Of T'O SCANI 001420
2 gees eee 2 i Pees ee = _ __ 001430 = = =
T*O TRY 001440
" = FEO R ENS se a = 001450 7 7
T'O SCAN 001460
‘ E'L 001470
EL 001480
Yo mee ee W'R FR «Ge Oy T*O NOMACH(LIMIT) __ _ 001490 on eke ans o
TRY WTR YMATCHs (TOP «(ES)» INPUTsMILIST~(TEST)) -E+ 0,T*O MATCH 001500
re Soe __ESROR=SEQRDR.(ES) = SE 0015100 » 7. 8 us
SEQLR~ (ESRDR, ESF) 001520
: POINT=SEQLR« (ESROR» ESF) 001530
POINTR=LSPNTR.(ESROR) 001540
a ees Se ee sore | ee 001550
NEWBOT.{1,POINTR) 001560
aan Se ____TRANS=POINT ia a _ 001570
T'C HIT 001580
, O'E 001590
T'H FNDHIT»FOR 1=Oyly I .G. POINT 001600
: FNDEIT _TRANS=SEQLR.(ESRORsESF) a _s 001610.
“WIR ESF .G. 0 001620
: Tie a? “SEQLR-(ESRDRyESF) a | oe : 001630 a eae

eae __SEQLR-(ESRORESF) Se ae 2 SP 00R6ROe se 2 ee eat Ne cone
TRANS=SEQLR« (ESRDR+ ESF) 001650
SUBST. (1,POINTR) 001660
T'O HIT 001670
: Ore ae. 7 4 2 001680 yon BOS A beet 8. 2 athens
SUBST. (POINT#1,POINTR) : 001690
; ; a OSHS. a Teese ee ee _ 001700 LY Acta er ee
Eft 001710
EtL 001720
HIT TXTPRT« (ASSMBL«( TRANS, TEST» MTLIST.« (OUTPUT) ) 10) 001730
me __ T'O START Rese | ee ee ape 2 =o PUBLIC
EL 001750 DOMAIN
- z= Re # *# # # # # # # # INSERT NEW KEYWORD LIST 001760 _
NEWLST POPTOP. (INPUT) 001770
NEWBOT. (LSSCPY.(INPUTsLIST.(9) ) sKEY (HASH 001780
1(TOP. (INPUT) +5))) 001790
et TO START : Jao 001800 __ =
Ru * # ® # © ® # # ® DUMP REVISED SCRIPT 001810
aS ENDPLA PRINT COMMENT $WHAT IS TO BE THE NUMBER OF THE NEW SCRIPTS 001820. __
READ FORMAT SNUMB, SCRIPT 001830
LPRINT. (INPUT, SCRIPT) 001840
NEWTOP. (MEMORY »MTLIST. (OUTPUT) ) 001850
ee ____NEWTOP.($MEMORY$,OUTPUT) 001860 =
T*H DUMP, FOR I=lyly I .G. 4 001870
___ ump NEWBOT.(MYTRAN(T),¢OUTPUT) ___ 001880 eee
LPRINT. (G§UTPUT»SCRIPT) 001890
MILIST. (OUTPUT) 001900
T*H WRITE, FOR I=Osly I .G. 32 001910
___POPMOR” WR LISTMT.(KEYCI)) Es Oo T'O WRITE = 001920 _ ks
LPRINT. (POPTOP.(KEY(1I)) SCRIPT) 001930
aL ee ae T*C POPMOR | : a 001940
WRITE CONTINUE 001950
LPRINT.(MILIST. (INPUT) sSCRIPT) 001960
EXIT. 001970
— Re te ee & # # * SCRIPT ERROR EXIT a 001980 é ==
NOMACH(1) PRINT COMMENT $PLEASE CONTINUE $ 002200
eee pesos OS TAR eee ns ree St poe S20022N0
NOMACK(2) PRINT COMMENT $HMMM $ 002220
T'O START- 002230
NOMACH(3) PRINT COMMENT $GO ON » PLEASE $ 002240
oy ae 2 OT ORSTART ws ee 002250 a
NOMACH(4) PRINT COMMENT $I SEE $ 002260
Oe TOUS TARE, pits i et. 7a L 002270
VECTOR VALUES SNUMB= $13 * $ 002280
EM 002290

”

PRINT »TO109,2531y TAPE 2100 ws ee es i = FOUN 2530 TSB. 03/06
(HOW DC YOU DO. I AM THE DOCTOR. PLEASE SIT DOWN AT THE TYPEWRITER 000010
ANC TELL ME YOUR PROBLEM.) 000020
; (IF_3 ((0 IF QO) (00 YOU THINK ITS LIKELY THAT 3) (DG YOU WISH THAT 3) 000030 4 ax ap eres
(WHAT DC YOU THINK ABOUT 3) (REALLY, 2 3))) 000040
pom (HOW (SWHATO) eee = : 000050 = = ae 3.4
(WHEN (=WHAT)) 000060
(MEMORY MY (0 YOUR 0 = LETS DISCUSS FURTHER WHY YOUR 3) 000070
(0 YOUR O = EARLIER YOU SAID YOUR 3) 000080 PUBLIC
aS: (0 YOUR O = BUT YOUR 3) ¥ : ee = 000090
(0 YOUR O = DOES THAT HAVE ANYTHING TO DO WITH THE FACT THAT YOUR 3)) 000100 DOMAIN
3 (NONE ((0) (1 AM NOT SURE I UNDERSTAND YOU FULLY) _ 7 000110 _
(PLEASE GO CGN) 000120
(WHAT DCES THAT SUGGEST TO YOU) 000130
(00 YCU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS))) 000140
(PERHAPS ((0) (YOU DON'T SEEM QUITE CERTAIN) a a | eee a= _000150_
(WHY THE UNCERTAIN TONE) 000160
_— (CAN*T YOU BE MORE POSITIVE) _ ee ee _ 000170
{YOU AREN'T SURE) (DON*T YOU KNOW))) 000180
(MAYBE (=PERHAPS) ) 000190
(AM = ARE ({0 ARE YOU 0) (00 YOU BELIEVE YOU ARE 4) 000210
____ {WOULD YOU _WANT TO BE 4) (YOU WISH I WOULD TELL YOU YOU ARE 4) 000220 —
(WHAT WOULD IT MEAN IF YOU WERE 4)) 000230
zs ((0) (WHY DO YOU SAY AM") (I DON'T UNDERSTAND THAT))) 000240, eee ee
(ARE = AM ((0 AM I 0) 000250
(WHY ARE YOU INTERESTED IN WHETHER I AM 4 OR NOT) 000260
(WOULD YOU PREFER IF I WEREN'T 4) (PERHAPS I AM 4 IN YOUR 000270
cere FANTASIES) (00 YOU SOMETIMES THINK I AM 4)) £ 000280 Last
((0 AM 0) (DID YOU THINK THEY MIGHT NOT BE 3) 000290
(WOULD YOU LIKE IT IF THEY WERE NOT 3) (WHAT IF THEY WERE NOT 3) 000300 -
: (POSSIBLY THEY ARE 3)) ) 000310
(YOUR = MY {(0 MY 0) (WHY ARE YOU CONCERNED OVER MY 3) 000320
(WHAT ABOUT YOUR OWN 3) (ARE YOU WORRIED ABOUT SOMEONE ELSES 3) 000330
__—_— — _(REALLY»_MY_3))) i eo EA = . 900340 eee nae
{WAS = WERE) 000350
AWERELS2WAS YL Ose uy = —- 000360 i a ee
(ME = YCU) 000370
(YOU'RE = I'M) 000380
(T'¥ = YOU'RE) 000390
io (MYSELF = YOURSELF) ask Se ES a 4s 000400
(YOURSELF = MYSELF) 000410
(MOTHER DLIST(/NOUN FAMILY)) aa 000420
az (FATHER OLIST(/NOUN FAMILY)) 000430
(SISTER DLIST(/FAMILY)) 000440
(BRCTHER DLIST(/FAMILY)) 000450
os (WIFE DLIST(/FAMILY)) _ ss ee «.. al ios 000460 2 :
(CHILCREN OLIST(/FAMILY)) 000470
= AL 2 YOULU(G YOUCARE 0: 110) _ 8 SS eee 000480
(PERHAPS YCU ARE 4 SOMEONE ELSE) 000490
(ARE YOU 4 ANYONE) (ARE YOU 4 ANYONE IN YOUR FAMILY) 000500
(PERHAPS YOU WISH I WERE 4 YOU 6)) 000510
= UO YOU ;ARE-0) 2 ne es 3 000520 _
(1S IT BECAUSE YOU ARE 4 THAT YOU CAME TO ME) 000530
Sa UU OW LONG SHAVE VOUS BEEN A) ea == _— 000540
(DO YCU BELIEVE IT NORMAL TO BE 4) 000550
(DC YOU ENJOY BEING 4)) 000560
({0 YCU CAN'T 0) (HOW DO YOU KNOW YOU CAN'T 4) 000570
__ (HAVE YOU TRIED) : : = 000580 rata
(PERHAPS YOU COULD 4 NOW) 000590
(00 YCU REALLY WANT TO BE ABLE TO 4)) 000600 _

((0 YOU DON'T 0)(DON'T YOU REALLY 4) {WHY DON'T YOU 4) Bs _____ 000610_ Stretton We Jars an Ge Tae :
(DO YCU WISH TO BE ABLE TO 4) (DOES THAT TROUBLE YOU)) 000620
((0 YCU FEEL 0) (TELL ME MORE ABOUT SUCH FEELINGS) 000630
(DC YCU OFTEN FEEL 4) 000640
___(DO0_YOU_ENJCY FEELING 4) - > __ 000650 - ee =.
(OF WHAT COES FEELING 4 REMIND YOU)) 000660
((0 YOU 0 I 0) (PERHAPS IN YOUR FANTASY WE 3 EACH OTHER) _ 000670 _ a. Me pela:
(0G YOU WISH TO 3 ME) 000680
(YOU SEEM TO NEED TO 3 ME) 000690
(DO YOU 3 ANYONE ELSE)) 000700 PUBLIC .
Crees ((0) (y¥cU SAY 1) 000710
(CAN YOU ELABORATE ON THAT) (DO YOU SAY 1 FOR SOME SPECIAL REASON) 000720 DOMAIN ,
: (THAT'S QUITE INTERESTING))) i sir ae 000730
(you = I ((0 I 0 YOU 0) 000740
(WHY CO YOU THINK I 3 YOU) 000750
(DIC YOUR PARENTS 3 YQU)) 000760
((0 1AM 0) (WHAT MAKES YOU THINK I AM 4) def ______000770
(DOES IT PLEASE YOU TO BELIEVE I AM 4) 000780
7 (DO_YOU SOMETIMES WISH YOU WERE 4) 2 __000790 _
(PERHAPS YCU WOULD LIKE TO BE 4)) 000800
((0 I 0) (WE WERE DISCUSSING YOU - NOT ME) 000810
(OH, I 3) (YOU'RE NOT REALLY TALKING ABOUT ME — ARE YOU) 000820
(WHAT ARE YOUR FEELINGS NOW))) face Magia L.* ____000830__
(YES ((0) (YOU SEEM QUITE POSITIVE) (YOU ARE SURE) 000840
_. . UESSEE) 0U1_ UNDERSTAND) ) es ae Seen a 000850 |
(NO ((0) (ARE YOU SAYING *NO* JUST TO BE NEGATIVE) 000860
(YOU ARE BEING A BIT NEGATIVE) (WHY NOT) (WHY *NO*))) 000870 7
(MY = YOUR ((0 YOUR O (/FAMILY) 0) 000880
TELL ME MORE ABOUT YOUR FAMILY) { WHO ELSE IN YOUR FAMILY _ 000890 ;
5) {YOUR 4) (WHAT ELSE COMES TO MIND WHEN YOU THINK OF 000900
= YOUR 4)) _ Ea ¥ ge one = ____000910 rppeayen eee
((0 YOUR 0) (YOUR 3) (WHY DO YOU SAY YOUR 3) (DOES THAT 000920
SUGGEST ANYTHING ELSE WHICH BELONGS TO YOU) (IS IT 000930
IMPORTANT TO YOU THAT 2 3))) 000940
CAN (00 CAN I 0) (YOU BELIEVE I CAN 4 DON'T YOU) 000950 b
(YCL WANT ME TO BE ABLE TO 4) (PERHAPS YOU WOULD LIKE TO BE 000960
ee ABLE TO 4 YOURSELF)) ((0 CAN YOU 0) (WHETHER OR NOT YOU CAN 4_ 000970 a oe
DEPENDS ON YOU MORE THAN ON ME) (DO YOU WANT TO BE ABLE TO 4) 000980
(PERHAPS YOU DON'T WANT TO 4))) 000990
(WHAT ((0) (WHY DO YOU ASK) (DOES THAT QUESTION INTEREST YOU) 001000
2 _(WHAT_IS IT YOU REALLY WANT TO KNOW) s Ss _001010 : =
(ARE SUCH QUESTIONS MUCH ON YOUR MIND) 001020
skh te (WHAT ANSWER WOULD PLEASE YOU MOST) ee) ee —
(WHAT OC YOU THINK) (WHAT COMES TO YOUR MIND WHEN YOU ASK THAT) 001040
is (HAVE YOU ASKED SUCH QUESTION BEFORE) 001050
(HAVE YOU ASKED ANYGNE ELSE))) 001060
Wises (BECAUSE ((0) (IS THAT THE REAL REASON) (DON*T ANY OTHER REASONS - 001070 geeewak © Se 5
COME TO MIND) (DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE) 001080
>_________(WHAT OTHER REASONS MIGHT THERE BE))) as _001090
< (WHY ((0 WHY DON'T I 0) (DO YOU BELIEVE I DON'T 5) (PERHAPS I 001100
: WILL _5 IN GOOD TIME) (SHOULD YOU 5 YOURSELF) (YOU WANT ME TO 5)) 001110
(0 WHY CAN*T YOU 0) (D0 YOU THINK YOU SHOULD BE ABLE TO 5) 001120
@.«__________ {©0 YOU WANT TO BE ABLE TO 5) (00 YOU BELIEVE THIS WILL HELP YOU _ 001130
TO 5) (HAVE YOU ANY IDEA WHY YOU CAN'T 5)) 001140
: = eg | eer ee oe ene 2 001150
« (EVERYONE 2 ((0) (REALLY, EVERYONE) (CAN YOU THINK OF 001160
‘ ANYONE IN PARTICULAR) (WHO, FOR EXAMPLE) (YOU ARE THINKING OF 001170
A VERY SPECIAL PERSON) 001180
e: __ (WHO, MAY TASK) (SOMEONE SPECIAL PERHAPS) at 001190
(YCL HAVE A PARTICULAR PERSON IN MIND, DON'T YOU) (WHO DO YOU 001200
2 THINK YOUtRE TALKING ABOUT))) _ —— 001210

=

____CEVERYBODY 2 (= EVERYONE)) fn ; 001220 Bs. ne
(NOBODY 2 (=EVERYONE)) 001230
(NCCNE 2 (=EVERYONE)) 001240 _ —
(ALWAYS 1 ((0) (CAN YOU THINK OF A SPECIFIC EXAMPLE) (WHEN) 001250
(WHAT INCIDENT ARE YOU THINKING OF) (REALLY, ALWAYS))) oe 001260 SO I es PN nee eg eee
t) 001270

PUBLIC
ae DOMAIN

= creative
Lous oe a commons

http://creativecommons.org/publicdomain/zero/ 1.0

& »

&

770109 2531 030665 17.88 17.88 56 00.024

OPUNCH,T0112529495TEST»FAP TOLL2 2949

=a DPUNCH, T0112,2949,TPROG,»FAP — TOLL 2 29469

DELETE, TO11292949,TESTy»FAP TO112 2949

= _ DELETE, T0112,2949,TPROG, FAP TOl12 2949
7T0112 2949 030665 17.88 17.88 56 00.001

STAT, T0134, 2533 = TO134 2533

PUBLIC
DOMAIN

creative
commons